home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / ARexx / Modular / GadSet.mod < prev    next >
Text File  |  1993-08-19  |  464b  |  13 lines
  1.     /* Column of gadgets */
  2.     GadSet:
  3.      call SetAPen(HO,1) ; call SetBPen(HO,2)
  4.      call Move(HO,80,26) ; call Text(HO,' Explore these ')    
  5.      call SetBPen(HO,0)
  6.      call RectFill(HO,14,30,280,180) ; call SetAPen(HO,0)           
  7.      call RectFill(HO,16,31,278,179) ; call SetAPen(HO,1)           
  8.      do g =  1 to arg(1)
  9.       call AddGadget(HO,arg(2),arg(3) + g*arg(4),g,' 'g' ','%l %d')
  10.      end 
  11.      s = SetClip('gadno',arg(1))      
  12.     return
  13.